;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;
;;;****************************************************************************
(DEFUN c:showcommands ()
  (if (setq this_lisp (getfiled "Find Commands in an Autolisp File" (if this_lisp this_lisp (findfile "gpdgn.lsp")) "lsp" 4))
    (PROGN
      (setq open_lisp (open this_lisp "r"))
      (while (setq this_line (read-line open_lisp))
        (if (wcmatch (strcase this_line) "(DEFUN C:*")
          (progn
            (setq strcnt 10)
            (while (and (<= strcnt (strlen this_line))(not (wcmatch (substr this_line strcnt 1) " ")))
              (setq strcnt (1+ strcnt))
            )
            (princ "\n")
            (princ (substr this_line 10 (- strcnt 10)))
            (princ)
          )
        )
      )
      (close open_lisp)
    )
  )
  (princ)
)
;;;****************************************************************************
(DEFUN c:showdefuns ()
  (if (setq this_file (getfiled "Show Autolisp functions and commands" "L:\\Util\\Lsp\\" "lsp" 0))
    (PROGN
      (setq open_file (open this_file "r"))
      (setq defun_list NIL)
      (while (setq this_line (read-line open_file))
        (if (wcmatch (strcase this_line) "(DEFUN *")
          (progn
            (setq strcnt 8)
            (while (and (<= strcnt (strlen this_line))(not (wcmatch (substr this_line strcnt 1) " ")))
              (setq strcnt (1+ strcnt))
            )
            (setq defun_list (append defun_list (list (substr this_line 8 (- strcnt 8)))))
          )
        )
      )
      (foreach n (ACAD_STRLSORT defun_list)
        (princ "\n")
        (princ n)
        (princ)
      )
      (close open_file)
    )
  )
  (princ)
)
